home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 028.dms / 028.adf / s / startup-sequence < prev   
Text File  |  1992-02-26  |  2KB  |  49 lines
  1. pp lab
  2. Setpatch >NIL:                         ; ROM patch
  3. c:version >NIL:
  4.  
  5. C:addbuffers >NIL: df0: 20
  6. Failat 21
  7.  
  8. makedir ram:T ram:Clipboards ram:env ram:env/sys   ; Some system drawers
  9. Copy >NIL: ENVARC: ram:env all quiet noreq   ; Preferences info
  10. assign ENV: ram:env                    ; Prefs
  11. assign T: ram:T                        ; T directory for scripts
  12. assign CLIPS: ram:clipboards           ; clip board for Conclip etc.
  13. assign >NIL: KEYMAPS: DEVS:Keymaps
  14. assign >NIL: PRINTERS: DEVS:printers
  15. assign >NIL: LOCALE: SYS:Locale
  16. Assign >NIL: LIBS: SYS:classes ADD
  17. Assign >NIL: HELP: LOCALE:Help DEFER
  18.  
  19. BindDrivers
  20.  
  21. Setenv Workbench $Workbench
  22. Setenv Kickstart $Kickstart
  23.  
  24. Iprefs                                 ; Load in preferences information
  25.  
  26. echo "Amiga Release 2/3.  Kickstart $Kickstart, Workbench $Workbench"
  27.  
  28. conclip
  29.  
  30. Path RAM: C: SYS: S: SYS:System Add    ; Set the search path
  31.  
  32. System/SetMap gb                       ; set a British keymap
  33.  
  34. Copy pics/title to RAM:Title           ; put the picture in RAM: so Vilbm
  35.                                        ; shows  it smoothly
  36. Vilbm RAM:title                        ; show the title picture from RAM:
  37. delete >NIL: RAM:title                 ; delete the picture to free memory
  38. cls                                    ; clear the screen
  39. Type s:Message                         ; display a message
  40. NewShell FROM S:CLIndex.startup "CON:0/200/639/55/CLIndex/CLOSE"
  41.                                        ; Make a small CLI window
  42.                                        ; at 0,200 size 639 by 55 pixels.
  43.                                        ; Title CLIndex with close gadget
  44. Wait 5                                 ; avoid disk grinding and let user
  45.                                        ; read message on screen
  46. Copy SYS:RAM.inf RAM:Disk.info         ; a new RAM: icon
  47. LoadWB                                 ; Load up the Workbench
  48. EndCLI >NIL:                           ; Close the big CLI window
  49.